/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / vm / vm-easymenu.elc.z / vm-easymenu.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 34 3a 33 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:44:31 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 76 6d 2f 76 |s-20.3/l|isp/vm/v|
|000000a0| 6d 2d 65 61 73 79 6d 65 | 6e 75 2e 65 6c 0a 3b 3b |m-easyme|nu.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 76 6d 2d 65 61 |  (error| "`vm-ea|
|000001f0| 73 79 6d 65 6e 75 2e 65 | 6c 27 20 77 61 73 20 63 |symenu.e|l' was c|
|00000200| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|00000210| 73 20 32 30 22 29 29 0a | 0a 28 6f 72 20 28 62 6f |s 20")).|.(or (bo|
|00000220| 75 6e 64 70 20 27 63 75 | 72 72 65 6e 74 2d 6c 6f |undp 'cu|rrent-lo|
|00000230| 61 64 2d 6c 69 73 74 29 | 20 28 73 65 74 71 20 63 |ad-list)| (setq c|
|00000240| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000250| 20 6e 69 6c 29 29 0a 0a | 0a 28 70 72 6f 76 69 64 | nil))..|.(provid|
|00000260| 65 20 27 76 6d 2d 65 61 | 73 79 6d 65 6e 75 29 0a |e 'vm-ea|symenu).|
|00000270| 28 64 65 66 61 6c 69 61 | 73 20 27 76 6d 2d 65 61 |(defalia|s 'vm-ea|
|00000280| 73 79 2d 6d 65 6e 75 2d | 64 65 66 69 6e 65 20 27 |sy-menu-|define '|
|00000290| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 73 79 6d 62 |(macro .| #[(symb|
|000002a0| 6f 6c 20 6d 61 70 73 20 | 64 6f 63 20 6d 65 6e 75 |ol maps |doc menu|
|000002b0| 29 20 22 c0 c1 5c 6e c3 | 0c 46 c5 c6 5c 6e 44 0e |) "..\n.|.F..\nD.|
|000002c0| 07 0c 0e 08 af 05 45 87 | 22 20 5b 70 72 6f 67 6e |......E.|" [progn|
|000002d0| 20 64 65 66 76 61 72 20 | 73 79 6d 62 6f 6c 20 6e | defvar |symbol n|
|000002e0| 69 6c 20 64 6f 63 20 76 | 6d 2d 65 61 73 79 2d 6d |il doc v|m-easy-m|
|000002f0| 65 6e 75 2d 64 6f 2d 64 | 65 66 69 6e 65 20 71 75 |enu-do-d|efine qu|
|00000300| 6f 74 65 20 6d 61 70 73 | 20 6d 65 6e 75 5d 20 37 |ote maps| menu] 7|
|00000310| 20 22 5c 0a 44 65 66 69 | 6e 65 20 61 20 6d 65 6e | "\.Defi|ne a men|
|00000320| 75 20 62 61 72 20 73 75 | 62 6d 65 6e 75 20 69 6e |u bar su|bmenu in|
|00000330| 20 6d 61 70 73 20 4d 41 | 50 53 2c 20 61 63 63 6f | maps MA|PS, acco|
|00000340| 72 64 69 6e 67 20 74 6f | 20 4d 45 4e 55 2e 0a 54 |rding to| MENU..T|
|00000350| 68 65 20 6d 65 6e 75 20 | 6b 65 79 6d 61 70 20 69 |he menu |keymap i|
|00000360| 73 20 73 74 6f 72 65 64 | 20 69 6e 20 73 79 6d 62 |s stored| in symb|
|00000370| 6f 6c 20 53 59 4d 42 4f | 4c 2c 20 62 6f 74 68 20 |ol SYMBO|L, both |
|00000380| 61 73 20 69 74 73 20 76 | 61 6c 75 65 0a 61 6e 64 |as its v|alue.and|
|00000390| 20 61 73 20 69 74 73 20 | 66 75 6e 63 74 69 6f 6e | as its |function|
|000003a0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 2e 20 20 20 44 | definit|ion.   D|
|000003b0| 4f 43 20 69 73 20 75 73 | 65 64 20 61 73 20 74 68 |OC is us|ed as th|
|000003c0| 65 20 64 6f 63 20 73 74 | 72 69 6e 67 20 66 6f 72 |e doc st|ring for|
|000003d0| 20 53 59 4d 42 4f 4c 2e | 0a 0a 54 68 65 20 66 69 | SYMBOL.|..The fi|
|000003e0| 72 73 74 20 65 6c 65 6d | 65 6e 74 20 6f 66 20 4d |rst elem|ent of M|
|000003f0| 45 4e 55 20 6d 75 73 74 | 20 62 65 20 61 20 73 74 |ENU must| be a st|
|00000400| 72 69 6e 67 2e 20 20 49 | 74 20 69 73 20 74 68 65 |ring.  I|t is the|
|00000410| 20 6d 65 6e 75 20 62 61 | 72 20 69 74 65 6d 20 6e | menu ba|r item n|
|00000420| 61 6d 65 2e 0a 54 68 65 | 20 72 65 73 74 20 6f 66 |ame..The| rest of|
|00000430| 20 74 68 65 20 65 6c 65 | 6d 65 6e 74 73 20 61 72 | the ele|ments ar|
|00000440| 65 20 6d 65 6e 75 20 69 | 74 65 6d 73 2e 0a 0a 41 |e menu i|tems...A|
|00000450| 20 6d 65 6e 75 20 69 74 | 65 6d 20 69 73 20 75 73 | menu it|em is us|
|00000460| 75 61 6c 6c 79 20 61 20 | 76 65 63 74 6f 72 20 6f |ually a |vector o|
|00000470| 66 20 74 68 72 65 65 20 | 65 6c 65 6d 65 6e 74 73 |f three |elements|
|00000480| 3a 20 20 5b 4e 41 4d 45 | 20 43 41 4c 4c 42 41 43 |:  [NAME| CALLBAC|
|00000490| 4b 20 45 4e 41 42 4c 45 | 5d 0a 0a 4e 41 4d 45 20 |K ENABLE|]..NAME |
|000004a0| 69 73 20 61 20 73 74 72 | 69 6e 67 2d 2d 74 68 65 |is a str|ing--the|
|000004b0| 20 6d 65 6e 75 20 69 74 | 65 6d 20 6e 61 6d 65 2e | menu it|em name.|
|000004c0| 0a 0a 43 41 4c 4c 42 41 | 43 4b 20 69 73 20 61 20 |..CALLBA|CK is a |
|000004d0| 63 6f 6d 6d 61 6e 64 20 | 74 6f 20 72 75 6e 20 77 |command |to run w|
|000004e0| 68 65 6e 20 74 68 65 20 | 69 74 65 6d 20 69 73 20 |hen the |item is |
|000004f0| 63 68 6f 73 65 6e 2c 0a | 6f 72 20 61 20 6c 69 73 |chosen,.|or a lis|
|00000500| 74 20 74 6f 20 65 76 61 | 6c 75 61 74 65 20 77 68 |t to eva|luate wh|
|00000510| 65 6e 20 74 68 65 20 69 | 74 65 6d 20 69 73 20 63 |en the i|tem is c|
|00000520| 68 6f 73 65 6e 2e 0a 0a | 45 4e 41 42 4c 45 20 69 |hosen...|ENABLE i|
|00000530| 73 20 61 6e 20 65 78 70 | 72 65 73 73 69 6f 6e 3b |s an exp|ression;|
|00000540| 20 74 68 65 20 69 74 65 | 6d 20 69 73 20 65 6e 61 | the ite|m is ena|
|00000550| 62 6c 65 64 20 66 6f 72 | 20 73 65 6c 65 63 74 69 |bled for| selecti|
|00000560| 6f 6e 0a 77 68 65 6e 65 | 76 65 72 20 74 68 69 73 |on.whene|ver this|
|00000570| 20 65 78 70 72 65 73 73 | 69 6f 6e 27 73 20 76 61 | express|ion's va|
|00000580| 6c 75 65 20 69 73 20 6e | 6f 6e 2d 6e 69 6c 2e 0a |lue is n|on-nil..|
|00000590| 0a 41 6c 74 65 72 6e 61 | 74 69 76 65 6c 79 2c 20 |.Alterna|tively, |
|000005a0| 61 20 6d 65 6e 75 20 69 | 74 65 6d 20 6d 61 79 20 |a menu i|tem may |
|000005b0| 68 61 76 65 20 74 68 65 | 20 66 6f 72 6d 3a 20 0a |have the| form: .|
|000005c0| 0a 20 20 20 5b 20 4e 41 | 4d 45 20 43 41 4c 4c 42 |.   [ NA|ME CALLB|
|000005d0| 41 43 4b 20 5b 20 4b 45 | 59 57 4f 52 44 20 41 52 |ACK [ KE|YWORD AR|
|000005e0| 47 20 5d 20 2e 2e 2e 20 | 5d 0a 0a 57 68 65 72 65 |G ] ... |]..Where|
|000005f0| 20 4b 45 59 57 4f 52 44 | 20 69 73 20 6f 6e 65 20 | KEYWORD| is one |
|00000600| 6f 66 20 74 68 65 20 73 | 79 6d 62 6f 6c 20 64 65 |of the s|ymbol de|
|00000610| 66 69 6e 65 64 20 62 65 | 6c 6f 77 2e 0a 0a 20 20 |fined be|low...  |
|00000620| 20 3a 6b 65 79 73 20 4b | 45 59 53 0a 0a 4b 45 59 | :keys K|EYS..KEY|
|00000630| 53 20 69 73 20 61 20 73 | 74 72 69 6e 67 3b 20 61 |S is a s|tring; a|
|00000640| 20 63 6f 6d 70 6c 65 78 | 20 6b 65 79 62 6f 61 72 | complex| keyboar|
|00000650| 64 20 65 71 75 69 76 61 | 6c 65 6e 74 20 74 6f 20 |d equiva|lent to |
|00000660| 74 68 69 73 20 6d 65 6e | 75 20 69 74 65 6d 2e 0a |this men|u item..|
|00000670| 54 68 69 73 20 69 73 20 | 6e 6f 72 6d 61 6c 6c 79 |This is |normally|
|00000680| 20 6e 6f 74 20 6e 65 65 | 64 65 64 20 62 65 63 61 | not nee|ded beca|
|00000690| 75 73 65 20 6b 65 79 62 | 6f 61 72 64 20 65 71 75 |use keyb|oard equ|
|000006a0| 69 76 61 6c 65 6e 74 73 | 20 61 72 65 20 75 73 75 |ivalents| are usu|
|000006b0| 61 6c 6c 79 0a 63 6f 6d | 70 75 74 65 64 20 61 75 |ally.com|puted au|
|000006c0| 74 6f 6d 61 74 69 63 61 | 6c 6c 79 2e 0a 0a 20 20 |tomatica|lly...  |
|000006d0| 20 3a 61 63 74 69 76 65 | 20 45 4e 41 42 4c 45 0a | :active| ENABLE.|
|000006e0| 0a 45 4e 41 42 4c 45 20 | 69 73 20 61 6e 20 65 78 |.ENABLE |is an ex|
|000006f0| 70 72 65 73 73 69 6f 6e | 3b 20 74 68 65 20 69 74 |pression|; the it|
|00000700| 65 6d 20 69 73 20 65 6e | 61 62 6c 65 64 20 66 6f |em is en|abled fo|
|00000710| 72 20 73 65 6c 65 63 74 | 69 6f 6e 0a 77 68 65 6e |r select|ion.when|
|00000720| 65 76 65 72 20 74 68 69 | 73 20 65 78 70 72 65 73 |ever thi|s expres|
|00000730| 73 69 6f 6e 27 73 20 76 | 61 6c 75 65 20 69 73 20 |sion's v|alue is |
|00000740| 6e 6f 6e 2d 6e 69 6c 2e | 0a 0a 20 20 20 3a 73 75 |non-nil.|..   :su|
|00000750| 66 66 69 78 20 4e 41 4d | 45 0a 0a 4e 41 4d 45 20 |ffix NAM|E..NAME |
|00000760| 69 73 20 61 20 73 74 72 | 69 6e 67 3b 20 74 68 65 |is a str|ing; the|
|00000770| 20 6e 61 6d 65 20 6f 66 | 20 61 6e 20 61 72 67 75 | name of| an argu|
|00000780| 6d 65 6e 74 20 74 6f 20 | 43 41 4c 4c 42 41 43 4b |ment to |CALLBACK|
|00000790| 2e 0a 0a 20 20 20 3a 73 | 74 79 6c 65 20 0a 20 20 |...   :s|tyle .  |
|000007a0| 20 0a 53 54 59 4c 45 20 | 69 73 20 61 20 73 79 6d | .STYLE |is a sym|
|000007b0| 62 6f 6c 20 64 65 73 63 | 72 69 62 69 6e 67 20 74 |bol desc|ribing t|
|000007c0| 68 65 20 74 79 70 65 20 | 6f 66 20 6d 65 6e 75 20 |he type |of menu |
|000007d0| 69 74 65 6d 2e 20 20 54 | 68 65 20 66 6f 6c 6c 6f |item.  T|he follo|
|000007e0| 77 69 6e 67 20 61 72 65 | 0a 64 65 66 69 6e 65 64 |wing are|.defined|
|000007f0| 3a 20 20 0a 0a 74 6f 67 | 67 6c 65 3a 20 41 20 63 |:  ..tog|gle: A c|
|00000800| 68 65 63 6b 62 6f 78 2e | 20 20 0a 20 20 20 20 20 |heckbox.|  .     |
|00000810| 20 20 20 43 75 72 72 65 | 6e 74 6c 79 20 6a 75 73 |   Curre|ntly jus|
|00000820| 74 20 70 72 65 70 65 6e | 64 20 74 68 65 20 6e 61 |t prepen|d the na|
|00000830| 6d 65 20 77 69 74 68 20 | 74 68 65 20 73 74 72 69 |me with |the stri|
|00000840| 6e 67 20 5c 22 54 6f 67 | 67 6c 65 20 5c 22 2e 0a |ng \"Tog|gle \"..|
|00000850| 72 61 64 69 6f 3a 20 41 | 20 72 61 64 69 6f 20 62 |radio: A| radio b|
|00000860| 75 74 74 6f 6e 2e 20 0a | 6e 69 6c 3a 20 41 6e 20 |utton. .|nil: An |
|00000870| 6f 72 64 69 6e 61 72 79 | 20 6d 65 6e 75 20 69 74 |ordinary| menu it|
|00000880| 65 6d 2e 0a 0a 20 20 20 | 3a 73 65 6c 65 63 74 65 |em...   |:selecte|
|00000890| 64 20 53 45 4c 45 43 54 | 45 44 0a 0a 53 45 4c 45 |d SELECT|ED..SELE|
|000008a0| 43 54 45 44 20 69 73 20 | 61 6e 20 65 78 70 72 65 |CTED is |an expre|
|000008b0| 73 73 69 6f 6e 3b 20 74 | 68 65 20 63 68 65 63 6b |ssion; t|he check|
|000008c0| 62 6f 78 20 6f 72 20 72 | 61 64 69 6f 20 62 75 74 |box or r|adio but|
|000008d0| 74 6f 6e 20 69 73 20 73 | 65 6c 65 63 74 65 64 0a |ton is s|elected.|
|000008e0| 77 68 65 6e 65 76 65 72 | 20 74 68 69 73 20 65 78 |whenever| this ex|
|000008f0| 70 72 65 73 73 69 6f 6e | 27 73 20 76 61 6c 75 65 |pression|'s value|
|00000900| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2e 0a 43 75 72 | is non-|nil..Cur|
|00000910| 72 65 6e 74 6c 79 20 6a | 75 73 74 20 64 69 73 61 |rently j|ust disa|
|00000920| 62 6c 65 20 72 61 64 69 | 6f 20 62 75 74 74 6f 6e |ble radi|o button|
|00000930| 73 2c 20 6e 6f 20 65 66 | 66 65 63 74 20 6f 6e 20 |s, no ef|fect on |
|00000940| 63 68 65 63 6b 62 6f 78 | 65 73 2e 0a 0a 41 20 6d |checkbox|es...A m|
|00000950| 65 6e 75 20 69 74 65 6d | 20 63 61 6e 20 62 65 20 |enu item| can be |
|00000960| 61 20 73 74 72 69 6e 67 | 2e 20 20 54 68 65 6e 20 |a string|.  Then |
|00000970| 74 68 61 74 20 73 74 72 | 69 6e 67 20 61 70 70 65 |that str|ing appe|
|00000980| 61 72 73 20 69 6e 20 74 | 68 65 20 6d 65 6e 75 20 |ars in t|he menu |
|00000990| 61 73 0a 75 6e 73 65 6c | 65 63 74 61 62 6c 65 20 |as.unsel|ectable |
|000009a0| 74 65 78 74 2e 20 20 41 | 20 73 74 72 69 6e 67 20 |text.  A| string |
|000009b0| 63 6f 6e 73 69 73 74 69 | 6e 67 20 73 6f 6c 65 6c |consisti|ng solel|
|000009c0| 79 20 6f 66 20 68 79 70 | 68 65 6e 73 20 69 73 20 |y of hyp|hens is |
|000009d0| 64 69 73 70 6c 61 79 65 | 64 0a 61 73 20 61 20 73 |displaye|d.as a s|
|000009e0| 6f 6c 69 64 20 68 6f 72 | 69 7a 6f 6e 74 61 6c 20 |olid hor|izontal |
|000009f0| 6c 69 6e 65 2e 0a 0a 41 | 20 6d 65 6e 75 20 69 74 |line...A| menu it|
|00000a00| 65 6d 20 63 61 6e 20 62 | 65 20 61 20 6c 69 73 74 |em can b|e a list|
|00000a10| 2e 20 20 49 74 20 69 73 | 20 74 72 65 61 74 65 64 |.  It is| treated|
|00000a20| 20 61 73 20 61 20 73 75 | 62 6d 65 6e 75 2e 0a 54 | as a su|bmenu..T|
|00000a30| 68 65 20 66 69 72 73 74 | 20 65 6c 65 6d 65 6e 74 |he first| element|
|00000a40| 20 73 68 6f 75 6c 64 20 | 62 65 20 74 68 65 20 73 | should |be the s|
|00000a50| 75 62 6d 65 6e 75 20 6e | 61 6d 65 2e 20 20 54 68 |ubmenu n|ame.  Th|
|00000a60| 61 74 27 73 20 75 73 65 | 64 20 61 73 20 74 68 65 |at's use|d as the|
|00000a70| 0a 6d 65 6e 75 20 69 74 | 65 6d 20 69 6e 20 74 68 |.menu it|em in th|
|00000a80| 65 20 74 6f 70 2d 6c 65 | 76 65 6c 20 6d 65 6e 75 |e top-le|vel menu|
|00000a90| 2e 20 20 54 68 65 20 63 | 64 72 20 6f 66 20 74 68 |.  The c|dr of th|
|00000aa0| 65 20 73 75 62 6d 65 6e | 75 20 6c 69 73 74 0a 69 |e submen|u list.i|
|00000ab0| 73 20 61 20 6c 69 73 74 | 20 6f 66 20 6d 65 6e 75 |s a list| of menu|
|00000ac0| 20 69 74 65 6d 73 2c 20 | 61 73 20 61 62 6f 76 65 | items, |as above|
|00000ad0| 2e 22 5d 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |."])).(d|efalias |
|00000ae0| 27 76 6d 2d 65 61 73 79 | 2d 6d 65 6e 75 2d 64 6f |'vm-easy|-menu-do|
|00000af0| 2d 64 65 66 69 6e 65 20 | 23 5b 28 73 79 6d 62 6f |-define |#[(symbo|
|00000b00| 6c 20 6d 61 70 73 20 64 | 6f 63 20 6d 65 6e 75 29 |l maps d|oc menu)|
|00000b10| 20 22 08 c1 5c 6e 40 5c | 6e 41 5c 22 4c 88 08 c3 | "..\n@\|nA\"L...|
|00000b20| c4 0d c6 c7 c8 08 45 af | 05 4d 88 c9 ca cb 0e 0c |......E.|.M......|
|00000b30| 21 ab 85 0e 0c 43 aa 82 | 0e 0c 5c 22 87 22 20 5b |!....C..|..\"." [|
|00000b40| 73 79 6d 62 6f 6c 20 76 | 6d 2d 65 61 73 79 2d 6d |symbol v|m-easy-m|
|00000b50| 65 6e 75 2d 63 72 65 61 | 74 65 2d 6b 65 79 6d 61 |enu-crea|te-keyma|
|00000b60| 70 73 20 6d 65 6e 75 20 | 6c 61 6d 62 64 61 20 28 |ps menu |lambda (|
|00000b70| 65 76 65 6e 74 29 20 64 | 6f 63 20 28 69 6e 74 65 |event) d|oc (inte|
|00000b80| 72 61 63 74 69 76 65 20 | 22 40 65 22 29 20 65 61 |ractive |"@e") ea|
|00000b90| 73 79 2d 70 6f 70 75 70 | 2d 6d 65 6e 75 20 65 76 |sy-popup|-menu ev|
|00000ba0| 65 6e 74 20 6d 61 70 63 | 61 72 20 23 5b 28 6d 61 |ent mapc|ar #[(ma|
|00000bb0| 70 29 20 22 c0 09 c2 c3 | c4 0d 40 21 5c 22 0d 40 |p) "....|..@!\".@|
|00000bc0| 0e 06 4a 42 23 87 22 20 | 5b 64 65 66 69 6e 65 2d |..JB#." |[define-|
|00000bd0| 6b 65 79 20 6d 61 70 20 | 76 65 63 74 6f 72 20 6d |key map |vector m|
|00000be0| 65 6e 75 2d 62 61 72 20 | 69 6e 74 65 72 6e 20 6d |enu-bar |intern m|
|00000bf0| 65 6e 75 20 73 79 6d 62 | 6f 6c 5d 20 36 5d 20 6b |enu symb|ol] 6] k|
|00000c00| 65 79 6d 61 70 70 20 6d | 61 70 73 5d 20 38 5d 29 |eymapp m|aps] 8])|
|00000c10| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00000c20| ac 82 c2 11 c1 0b 42 13 | c0 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|00000c30| 6e 64 70 20 76 6d 2d 65 | 61 73 79 2d 6d 65 6e 75 |ndp vm-e|asy-menu|
|00000c40| 2d 69 74 65 6d 2d 63 6f | 75 6e 74 20 30 20 63 75 |-item-co|unt 0 cu|
|00000c50| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 5d |rrent-lo|ad-list]|
|00000c60| 20 32 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 | 2).(def|alias 'v|
|00000c70| 6d 2d 65 61 73 79 2d 6d | 65 6e 75 2d 63 72 65 61 |m-easy-m|enu-crea|
|00000c80| 74 65 2d 6b 65 79 6d 61 | 70 73 20 23 5b 28 6d 65 |te-keyma|ps #[(me|
|00000c90| 6e 75 2d 6e 61 6d 65 20 | 6d 65 6e 75 2d 69 74 65 |nu-name |menu-ite|
|00000ca0| 6d 73 29 20 22 c0 09 21 | 1a c3 0c 21 89 14 83 8d |ms) "..!|...!....|
|00000cb0| 01 0c 40 1d c6 0d 21 ad | 83 0d c7 48 1e 08 c9 1e |..@...!.|...H....|
|00000cc0| 5c 6e c9 1e 0b c9 1e 0c | 0d 3b ab 92 c9 16 5c 6e |\n......|.;....\n|
|00000cd0| cd ce 0d 5c 22 ab 83 cf | aa 81 0d 16 0c 82 62 01 |...\"...|......b.|
|00000ce0| 0d 3a ab 8f d0 0d 40 0d | 41 5c 22 16 5c 6e 0d 40 |.:....@.|A\".\n.@|
|00000cf0| 16 0c 82 62 01 c6 0d 21 | 83 62 01 0e 08 39 ab 86 |...b...!|.b...9..|
|00000d00| 0e 08 16 5c 6e aa 8e d1 | d2 d3 0e 14 5c 22 21 16 |...\n...|....\"!.|
|00000d10| 5c 6e 0e 14 54 16 14 0d | d5 48 16 0c 0d d6 48 89 |\n..T...|.H....H.|
|00000d20| 1e 17 39 83 2f 01 d8 0e | 17 21 d5 48 d9 55 83 2f |..9./...|.!.H.U./|
|00000d30| 01 d6 c9 89 89 89 89 1e | 1a 1e 1b 1e 1c 1e 1d 1e |........|........|
|00000d40| 1e 1e 1f 0d 47 0e 1f 56 | ab d3 0d 0e 1f 48 16 17 |....G..V|.....H..|
|00000d50| 0d 0e 1f 54 48 16 1a 0e | 1f d6 5c 5c 16 1f 0e 17 |...TH...|..\\....|
|00000d60| e0 61 ab 86 0e 1a 16 1b | aa 5a 0e 17 e1 61 ab 86 |.a......|.Z...a..|
|00000d70| 0e 1a 16 1c aa 4e 0e 17 | e2 61 ab 8a 0e 0c e3 0e |.....N..|.a......|
|00000d80| 1a 51 16 0c aa 3e 0e 17 | e4 61 ab 86 0e 1a 16 1e |.Q...>..|.a......|
|00000d90| aa 32 0e 17 e5 61 ab 2c | 0e 1a 16 1d aa 26 0e 1b |.2...a.,|.....&..|
|00000da0| ab 89 0e 0c e6 0e 1b e7 | 52 16 0c 0e 1e e8 61 ab |........|R.....a.|
|00000db0| 86 e9 0e 0c 50 16 0c 0e | 1c ab 8a ea 0e 5c 6e eb |....P...|.....\n.|
|00000dc0| 0e 1c 23 88 aa 94 0e 1e | ec 61 ab 8e 0e 1d ab 8a |..#.....|.a......|
|00000dd0| ea 0e 5c 6e eb ed 0e 1d | 44 23 88 2e 06 aa 97 0d |..\n....|D#......|
|00000de0| 47 ee 55 ab 89 0e 0c e3 | 0d ef 48 51 16 0c ea 0e |G.U.....|..HQ....|
|00000df0| 5c 6e eb 0e 17 23 88 29 | f0 0e 08 21 ab 86 0e 0c |\n...#.)|...!....|
|00000e00| f1 50 16 0c 0e 08 39 ac | 8a 0e 5c 6e f2 c9 f3 0e |.P....9.|..\n....|
|00000e10| 08 46 4d 88 0e 5c 6e ac | 8c 5c 6e c9 0e 0c 44 5c |.FM..\n.|.\n...D\|
|00000e20| 6e 41 42 a1 88 aa 93 0e | 0c ab 8f f4 5c 6e f5 f6 |nAB.....|....\n..|
|00000e30| 0e 0c 21 21 0e 0c 0e 5c | 6e 42 23 88 2d 0c 41 89 |..!!...\|nB#.-.A.|
|00000e40| 14 84 0c 00 5c 6e 29 87 | 22 20 5b 6d 61 6b 65 2d |....\n).|" [make-|
|00000e50| 73 70 61 72 73 65 2d 6b | 65 79 6d 61 70 20 6d 65 |sparse-k|eymap me|
|00000e60| 6e 75 2d 6e 61 6d 65 20 | 6d 65 6e 75 20 72 65 76 |nu-name |menu rev|
|00000e70| 65 72 73 65 20 6d 65 6e | 75 2d 69 74 65 6d 73 20 |erse men|u-items |
|00000e80| 69 74 65 6d 20 76 65 63 | 74 6f 72 70 20 31 20 63 |item vec|torp 1 c|
|00000e90| 61 6c 6c 62 61 63 6b 20 | 6e 69 6c 20 63 6f 6d 6d |allback |nil comm|
|00000ea0| 61 6e 64 20 65 6e 61 62 | 6c 65 72 20 6e 61 6d 65 |and enab|ler name|
|00000eb0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e | string-|match "^|
|00000ec0| 2d 2b 24 22 20 22 22 20 | 76 6d 2d 65 61 73 79 2d |-+$" "" |vm-easy-|
|00000ed0| 6d 65 6e 75 2d 63 72 65 | 61 74 65 2d 6b 65 79 6d |menu-cre|ate-keym|
|00000ee0| 61 70 73 20 6d 61 6b 65 | 2d 73 79 6d 62 6f 6c 20 |aps make|-symbol |
|00000ef0| 66 6f 72 6d 61 74 20 22 | 6d 65 6e 75 2d 66 75 6e |format "|menu-fun|
|00000f00| 63 74 69 6f 6e 2d 25 64 | 22 20 76 6d 2d 65 61 73 |ction-%d|" vm-eas|
|00000f10| 79 2d 6d 65 6e 75 2d 69 | 74 65 6d 2d 63 6f 75 6e |y-menu-i|tem-coun|
|00000f20| 74 20 30 20 32 20 6b 65 | 79 77 6f 72 64 20 73 79 |t 0 2 ke|yword sy|
|00000f30| 6d 62 6f 6c 2d 6e 61 6d | 65 20 3f 5c 3a 20 61 72 |mbol-nam|e ?\: ar|
|00000f40| 67 20 6b 65 79 73 20 61 | 63 74 69 76 65 20 73 65 |g keys a|ctive se|
|00000f50| 6c 65 63 74 65 64 20 73 | 74 79 6c 65 20 63 6f 75 |lected s|tyle cou|
|00000f60| 6e 74 20 3a 6b 65 79 73 | 20 3a 61 63 74 69 76 65 |nt :keys| :active|
|00000f70| 20 3a 73 75 66 66 69 78 | 20 22 20 22 20 3a 73 74 | :suffix| " " :st|
|00000f80| 79 6c 65 20 3a 73 65 6c | 65 63 74 65 64 20 22 20 |yle :sel|ected " |
|00000f90| 20 28 22 20 22 29 22 20 | 74 6f 67 67 6c 65 20 22 | (" ")" |toggle "|
|00000fa0| 54 6f 67 67 6c 65 20 22 | 20 70 75 74 20 6d 65 6e |Toggle "| put men|
|00000fb0| 75 2d 65 6e 61 62 6c 65 | 20 72 61 64 69 6f 20 6e |u-enable| radio n|
|00000fc0| 6f 74 20 34 20 33 20 6b | 65 79 6d 61 70 70 20 22 |ot 4 3 k|eymapp "|
|00000fd0| 20 2e 2e 2e 22 20 6c 61 | 6d 62 64 61 20 28 69 6e | ..." la|mbda (in|
|00000fe0| 74 65 72 61 63 74 69 76 | 65 29 20 64 65 66 69 6e |teractiv|e) defin|
|00000ff0| 65 2d 6b 65 79 20 76 65 | 63 74 6f 72 20 69 6e 74 |e-key ve|ctor int|
|00001000| 65 72 6e 5d 20 37 5d 29 | 0a 28 64 65 66 61 6c 69 |ern] 7])|.(defali|
|00001010| 61 73 20 27 76 6d 2d 65 | 61 73 79 2d 6d 65 6e 75 |as 'vm-e|asy-menu|
|00001020| 2d 63 68 61 6e 67 65 20 | 23 5b 28 70 61 74 68 20 |-change |#[(path |
|00001030| 6e 61 6d 65 20 69 74 65 | 6d 73 29 20 22 c0 c1 c2 |name ite|ms) "...|
|00001040| c3 c4 c5 c6 0e 07 0e 08 | 43 5c 22 5c 22 23 21 1e |........|C\"\"#!.|
|00001050| 09 ca 0e 09 21 ab 8c 0e | 09 cb 0e 08 0e 0c 5c 22 |....!...|......\"|
|00001060| 41 a1 aa 83 cd ce 21 29 | 87 22 20 5b 6b 65 79 2d |A.....!)|." [key-|
|00001070| 62 69 6e 64 69 6e 67 20 | 61 70 70 6c 79 20 76 65 |binding |apply ve|
|00001080| 63 74 6f 72 20 6d 65 6e | 75 2d 62 61 72 20 6d 61 |ctor men|u-bar ma|
|00001090| 70 63 61 72 20 69 6e 74 | 65 72 6e 20 61 70 70 65 |pcar int|ern appe|
|000010a0| 6e 64 20 70 61 74 68 20 | 6e 61 6d 65 20 6d 61 70 |nd path |name map|
|000010b0| 20 6b 65 79 6d 61 70 70 | 20 76 6d 2d 65 61 73 79 | keymapp| vm-easy|
|000010c0| 2d 6d 65 6e 75 2d 63 72 | 65 61 74 65 2d 6b 65 79 |-menu-cr|eate-key|
|000010d0| 6d 61 70 73 20 69 74 65 | 6d 73 20 65 72 72 6f 72 |maps ite|ms error|
|000010e0| 20 22 4d 61 6c 66 6f 72 | 6d 65 64 20 6d 65 6e 75 | "Malfor|med menu|
|000010f0| 20 69 6e 20 60 76 6d 2d | 65 61 73 79 2d 6d 65 6e | in `vm-|easy-men|
|00001100| 75 2d 63 68 61 6e 67 65 | 27 22 5d 20 39 20 22 5c |u-change|'"] 9 "\|
|00001110| 0a 43 68 61 6e 67 65 20 | 6d 65 6e 75 20 66 6f 75 |.Change |menu fou|
|00001120| 6e 64 20 61 74 20 50 41 | 54 48 20 61 73 20 69 74 |nd at PA|TH as it|
|00001130| 65 6d 20 4e 41 4d 45 20 | 74 6f 20 63 6f 6e 74 61 |em NAME |to conta|
|00001140| 69 6e 20 49 54 45 4d 53 | 2e 0a 50 41 54 48 20 69 |in ITEMS|..PATH i|
|00001150| 73 20 61 20 6c 69 73 74 | 20 6f 66 20 73 74 72 69 |s a list| of stri|
|00001160| 6e 67 73 20 66 6f 72 20 | 6c 6f 63 61 74 69 6e 67 |ngs for |locating|
|00001170| 20 74 68 65 20 6d 65 6e | 75 20 63 6f 6e 74 61 69 | the men|u contai|
|00001180| 6e 69 6e 67 20 4e 41 4d | 45 20 69 6e 20 74 68 65 |ning NAM|E in the|
|00001190| 0a 6d 65 6e 75 20 62 61 | 72 2e 20 20 49 54 45 4d |.menu ba|r.  ITEM|
|000011a0| 53 20 69 73 20 61 20 6c | 69 73 74 20 6f 66 20 6d |S is a l|ist of m|
|000011b0| 65 6e 75 20 69 74 65 6d | 73 2c 20 61 73 20 69 6e |enu item|s, as in|
|000011c0| 20 60 76 6d 2d 65 61 73 | 79 2d 6d 65 6e 75 2d 64 | `vm-eas|y-menu-d|
|000011d0| 65 66 69 6e 65 27 2e 0a | 54 68 65 73 65 20 69 74 |efine'..|These it|
|000011e0| 65 6d 73 20 65 6e 74 69 | 72 65 6c 79 20 72 65 70 |ems enti|rely rep|
|000011f0| 6c 61 63 65 20 74 68 65 | 20 70 72 65 76 69 6f 75 |lace the| previou|
|00001200| 73 20 69 74 65 6d 73 20 | 69 6e 20 74 68 61 74 20 |s items |in that |
|00001210| 6d 61 70 2e 0a 0a 43 61 | 6c 6c 20 74 68 69 73 20 |map...Ca|ll this |
|00001220| 66 72 6f 6d 20 60 61 63 | 74 69 76 61 74 65 2d 6d |from `ac|tivate-m|
|00001230| 65 6e 75 62 61 72 2d 68 | 6f 6f 6b 27 20 74 6f 20 |enubar-h|ook' to |
|00001240| 69 6d 70 6c 65 6d 65 6e | 74 20 64 79 6e 61 6d 69 |implemen|t dynami|
|00001250| 63 20 6d 65 6e 75 73 2e | 22 5d 29 0a 28 64 65 66 |c menus.|"]).(def|
|00001260| 61 6c 69 61 73 20 27 76 | 6d 2d 65 61 73 79 2d 6d |alias 'v|m-easy-m|
|00001270| 65 6e 75 2d 72 65 6d 6f | 76 65 20 23 5b 28 6d 65 |enu-remo|ve #[(me|
|00001280| 6e 75 29 20 22 c0 87 22 | 20 5b 6e 69 6c 5d 20 31 |nu) ".."| [nil] 1|
|00001290| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 6d |]).(defa|lias 'vm|
|000012a0| 2d 65 61 73 79 2d 6d 65 | 6e 75 2d 61 64 64 20 23 |-easy-me|nu-add #|
|000012b0| 5b 28 6d 65 6e 75 20 26 | 6f 70 74 69 6f 6e 61 6c |[(menu &|optional|
|000012c0| 20 6d 61 70 29 20 22 c0 | 87 22 20 5b 6e 69 6c 5d | map) ".|." [nil]|
|000012d0| 20 31 5d 29 0a          |                         | 1]).   |        |
+--------+-------------------------+-------------------------+--------+--------+